  10 CLEAR ;BC=80;FC=7;NT=1;CY=0;PRINT "    SEARCH AND DESTROY";FOR Z=1TO 500;NEXT Z
  15 CLEAR ;BC=240;FOR A=1TO 60;@(A)=0;NEXT A
  20 FOR Q=1TO 5
  22 U=RND (59)+1;IF @(U)=2GOTO 22
  24 @(U)=2;NEXT Q
  30 FOR X=21TO -39STEP -10;LINE 75,X,1=XY;LINE -75,X,3;NEXT X
  40 T=5;GOSUB 320;T=0;GOSUB 300
  50 L=RND (59)+1;IF @(L)=1GOTO 50
  60 CY=40;INPUT " DEPTH CHARGE SECTOR?:"A;Q=A
  70 IF @(A)=1GOTO 60
  80 GOSUB 330;GOSUB 380;P=1;GOSUB 405;IF @(A)=2CY=28;PRINT "         M I N E         ";F=0;GOTO 800
  90 F=1;FOR Z=1TO 250;NEXT Z;GOSUB 490
 130 B=RND (59)+1;IF B=LGOTO 130
 140 IF @(B)>0GOTO 130
 150 CY=28;PRINT "       SUB ATTACK      ";A=L;GOSUB 330;GOSUB 380;GOSUB 400;F=0;GOSUB 480;@(Q)=1
 170 A=L;I=E;GOSUB 410;GOSUB 300;CY=28;PRINT "  PREPARE DEPTH CHARGE";A=Q;GOSUB 330;GOSUB 380;GOSUB 50
 300 FOR X=-75TO 80STEP 15;LINE X,21,1=XY;LINE X,-39,1;NEXT X
 320 IF T=5FOR A=1TO 60
 330 IF A<=10K=A;I=0;GOTO 350
 340 I=A÷10;J=I×10;K=A-J;IF K=0K=10;I=I-1
 350 C=(-70+(15×(K-1)));I=(16-(I×10));IF T=5CY=I;CX=C;PRINT #1,A;NEXT A
 360 RETURN 
 380 CY=I;CX=C;PRINT #1," ";RETURN 
 400 BOX C+2,I+2,1,3,3;BOX C+1,I+3,1,1,3;BOX C-3,I-2,1,1,3;BOX C-3,I-4,1,1,3;R=4;S=3
 405 BOX C+2,I-3,8,3,3;BOX C+2,I-1,5,1,3;BOX C+2,I,3,1,3;IF P=1R=3;S=2
 406 BOX C+6,I-2,1,1,3;BOX C+6,I-R,1,1,3;BOX C+7,I-S,1,1,3;P=0;RETURN 
 410 BOX 0,I,160,8,2;IF A<=10H=1;GOTO 440
 420 G=A÷10;G=G×10;H=G;IF A-G=0H=A-9;GOTO 440
 430 H=H+1
 440 G=H+9;FOR A=HTO G;IF @(A)=1GOTO 460
 450 GOSUB 330;CY=I;CX=C;PRINT #1,A
 460 NEXT A;RETURN 
 480 D=C;E=I;A=B;GOSUB 330;@(A)=1;&(21)=255;&(23)=255;LINE D,E,1=XY;H=XY;LINE C,I,3;XY=H;LINE C,I,3;&(21)=0;&(23)=0
 485 BOX C+1,I,7,7,3
 490 NT=2;W=0;FOR W=1TO 5;BC=135;FC=0;MU=W;BC=0;FC=135;NEXT W;BC=240;FC=7;NT=1
 495 IF L=QIF F=1GOTO 800
 496 IF F=1GOTO 510
 500 IF B=QIF F=0GOTO 800
 505 GOSUB 380
 510 RETURN 
 700 BC=80;CY=16;CX=-23;PRINT "TODAY YOU!!
 710 CY=-16;PRINT "    TOMORROW THE WORLD";STOP
 750 BC=160;CY=16;PRINT "   MISSION ACCOMPLISHED
 760 FOR Z=1TO 3;CY=-16;PRINT "                      ";CY=-16;PRINT "     DOLPHIN DESTROYED";NEXT Z;STOP
 800 NT=2;&(21)=255;FOR N=255TO 20STEP -3;BC=N;MU=Y;&(23)=N;NEXT N;&(21)=0;BC=240
 810 FOR Z=1TO 5;CY=0;CX=-26;PRINT "DIRECT HIT";CY=0;CX=-26;PRINT "         ";NEXT Z;CLEAR ;IF F=1GOTO 750
 820 IF F=0GOTO 700
>:RETURN ;RUN 
